home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 1159.ZIP / OSSFMTMF.PRG < prev    next >
Text File  |  1986-11-20  |  4KB  |  169 lines

  1. SET SAFETY OFF
  2. N4='K'
  3. DO WHILE N4#'STOP'
  4.  CLEAR
  5.  @ 1,20 SAY 'Data base in use:  '
  6.  ?? OSS
  7.  ?
  8.  DO CASE
  9.   CASE MULTTV=1
  10.    ?'Identical designations in the '
  11.    ?? TVANUMBER
  12.    ??' field were found.'
  13.   CASE MULTSN=1
  14.    ?'Identical designations in the '
  15.    ?? SERIALNUM
  16.    ??' field were found.'
  17.  ENDCASE
  18.  @ 5,4 SAY 'What would you like to do ?'
  19.  DO WHILE N4#'A'.AND.N4#'B'.AND.N4#'C'.AND.N4#'D'.AND.LEN(TRIM(N4))#0;
  20.   .AND.N4#'E'.AND.N4#'F'
  21.   @ 6,0 CLEAR
  22.   ?'A)  Print out the records.'
  23.   ?
  24.   ?'B)  View the records on the screen.'
  25.   ?
  26.   ?'C)  Both view the records on the screen and print them out.'
  27.   ?
  28.   ?'D)  Modify the information in the records or delete records.'
  29.   ?
  30.   ?'E)  Make a backup copy of all records in this data base.'
  31.   ?
  32.   ?'F)  QUIT (with a backup copy option)'
  33.   ?
  34.   ?
  35.   ?'    Press "RETURN" to return to the previous menu.'
  36.   ?
  37.   ?'    Press "R" to return to the main menu.'
  38.   WAIT '                              ' TO N4
  39.   ??'    WORKING . . .'
  40.   N4=UPPER(N4)
  41.   IF N4='R'
  42.    N4='Z'
  43.    CLOSE DATABASES
  44.    RETURN TO MASTER
  45.   ENDIF
  46.  ENDDO
  47.  DO CASE
  48.   CASE N4='A'
  49.    CLEAR
  50.    @ 7,32 SAY 'WORKING . . .'
  51.    @ 10,8 SAY 'Please do not press any keys until the next option appears.'
  52.    PRINTOUT=1
  53.    VIEW=0
  54.    IF MULTTV=0.AND.MULTSN=0
  55.     DO OSSPRNSE
  56.    ELSE
  57.     GLCALDU=0
  58.     ADDFILE=0
  59.     MODFILE=0
  60.     DO REPINSTP
  61.    ENDIF
  62.   CASE N4='B'
  63.    CLEAR
  64.    @ 7,32 SAY 'WORKING . . .'
  65.    @ 10,8 SAY 'Please do not press any keys until the next option appears.'
  66.    PRINTOUT=0
  67.    VIEW=1
  68.    IF MULTTV=0.AND.MULTSN=0
  69.     DO OSSPRNSE
  70.    ELSE
  71.     GLCALDU=0
  72.     ADDFILE=0
  73.     MODFILE=0
  74.     DO REPINSTP
  75.    ENDIF
  76.   CASE N4='C'
  77.    CLEAR
  78.    @ 7,32 SAY 'WORKING . . .'
  79.    @ 10,8 SAY 'Please do not press any keys until the next option appears.'
  80.    PRINTOUT=1
  81.    VIEW=1
  82.    IF MULTTV=0.AND.MULTSN=0
  83.     DO OSSPRNSE
  84.    ELSE
  85.     GLCALDU=0
  86.     ADDFILE=0
  87.     MODFILE=0
  88.     DO REPINSTP
  89.    ENDIF
  90.   CASE N4='D'
  91.    CLEAR
  92.    @ 7,32 SAY 'WORKING . . .'
  93.    @ 10,8 SAY 'Please do not press any keys until the next option appears.'
  94.     DO OSSMODMF
  95.    N4='Z'
  96.   CASE N4='E'
  97.     CLEAR
  98.     @ 5,0
  99.     ?'        This procedure copies all information for this data base FROM'
  100.     ?'        your fixed disk TO one or more floppy disks, depending on the'
  101.     ?'        size of this particular data base.  In the process of doing this,'
  102.     ?'        the data (if any) which is currently on the FLOPPY DISKETTE(S)'
  103.     ?'        may be destroyed.'
  104.     ?
  105.     ?'        Each data base which is backed up must be backed up on a separate'
  106.     ?'        floppy diskette (or a separate set of floppy diskettes).'  
  107.     ?
  108.     ?
  109.     ?
  110.     ?'        Please place a formatted floppy disk into drive "A" and'
  111.     ?
  112.     ?'        press any key other than "RETURN" to continue.  Press'
  113.     ?
  114.    WAIT '        "RETURN" to abort this procedure and return to the menu.' TO N6
  115.     IF ASC(N6)=0
  116.      N4='Z'
  117.      LOOP
  118.     ENDIF
  119.     N4='Z'
  120.     DO DATABACK
  121.     LOOP
  122.  CASE N4='F'
  123.   ?
  124.   ?
  125.   DO WHILE N4#'Y'.AND.N4#'N'
  126.   CLEAR
  127.     @ 5,0
  128.     ?'        This procedure copies all information for this data base FROM'
  129.     ?'        your fixed disk TO one or more floppy disks, depending on the'
  130.     ?'        size of this particular data base.  In the process of doing this,'
  131.     ?'        the data (if any) which is currently on the FLOPPY DISKETTE(S)'
  132.     ?'        may be destroyed.'
  133.     ?
  134.     ?'        Each data base which is backed up must be backed up on a separate'
  135.     ?'        floppy diskette (or a separate set of floppy diskettes).'  
  136.     ?
  137.     ?
  138. WAIT '        Do you wish to make a backup copy of this data base ?  (Y/N)';
  139.  TO N4
  140.   N4=UPPER(N4)
  141.   ENDDO
  142.   IF N4='Y'
  143.    ?
  144.    ?
  145.    ?'        Please place a formatted diskette into drive "A."'
  146.    ?
  147.    ?
  148.    WAIT
  149.    DO DATABACK
  150.   ENDIF
  151.   CLEAR ALL
  152.   RUN CD\
  153.   SET COLOR TO
  154.   QUIT
  155.   CASE LEN(TRIM(N4))=0
  156.    CLOSE DATABASES
  157.    SELECT 2
  158.    USE REPWORK
  159.    SELECT 1
  160.    USE &DBNAME INDEX &INDEX1,&INDEX2
  161.    N=0
  162.    NP=N
  163.    RETURN
  164.  ENDCASE
  165. N4='K'
  166. ENDDO  
  167. RETURN
  168.  
  169.